home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1999 #2 / Amiga Plus CD - 1999 - No. 2.iso / System-Boost / Virus / Xtruder / Install < prev    next >
Text File  |  1997-07-21  |  6KB  |  295 lines
  1. ; *******************************************************************
  2. ;
  3. ; $VER: Install 3.6 (5.7.97)
  4. ; 
  5. ; Install script for Xtruder copyright © 1995-1997 Martin Wulffeld
  6. ;
  7. ; *******************************************************************
  8.  
  9. (set old_level @user-level)
  10. (set @default-dest "")
  11.  
  12. (set default_lang 256)
  13.  
  14. (set #bad-kick
  15. (cat "You must at least have Kickstart 2.04 to install Xtruder!"
  16. ))
  17.  
  18. (set #copying-bootblockbb    "\nCopying Bootblock.brainfile to L:...")
  19. (set #copying-bootblock        "\nCopying Bootblock.library 3.1 to LIBS:...")
  20. (set #copying-fileid        "\nCopying FileID.library 7.10 to LIBS:...")
  21. (set #copying-filevirus        "\nCopying filevirus.library 2.12 to LIBS:...")
  22. (set #copying-reqtools        "\nCopying reqtools.library 38.1436 to LIBS:...")
  23. (set #copying-unpack        "\nCopying unpack.library 42.71 to LIBS:...")
  24. (set #copying-xfdlib        "\nCopying xfdmaster.library 37.6 to LIBS:...")
  25. (set #copying-xtruderlib    "\nCopying xtruder.library 37.2 to LIBS:...")
  26. (set #copying-xtruderexe    "\nCopying Xtruder executable...")
  27. (set #copying-documentation    "\nCopying Xtruder documentation...")
  28. (set #copying-regfiles        "\nCopying registration files...")
  29. (set #copying-catalogs        "\nCopying catalogs...")
  30. (set #copying-rexxscripts    "\nCopying rexx scripts...")
  31. (set #creating-xfd            "\nCreating directory\n\nLIBS:xfd\n\nfor external decrunchers...")
  32. (set #copying-xfdfiles        "\nCopying external decrunchers\nfor xfdmaster.library...")
  33. (set #select-dest            "Please select the path where you want to install Xtruder. A drawer named Xtruder will be created there.")
  34. (set #select-destguide        "Please select the alternative path where you want to install the Xtruder documentation. It has already been installed along with the main program.")
  35. (set #select-destrexx        "Please select the path where you want to install the Rexx scripts. A drawer named Xtruder will be created there.")
  36. (set #select-language       "Which languages should be installed?")
  37.  
  38. ;=============================================================================
  39. ; Make sure we are running under a 2.04 ROM
  40.  
  41. (if (< (/ (getversion) 65536) 37)
  42. (
  43.     (abort #bad-kick)
  44. ))
  45.  
  46. ;=============================================================================
  47.  
  48. ;*** Required libraries
  49.  
  50. (copylib
  51.     (prompt #copying-bootblockbb)
  52.     (help @copylib-help)
  53.     (source "L/Bootblock.brainfile")
  54.     (dest "L:")
  55.     (confirm)
  56. )
  57.  
  58. (copylib
  59.     (prompt #copying-bootblock)
  60.     (help @copylib-help)
  61.     (source "Libs/Bootblock.library")
  62.     (dest "LIBS:")
  63.     (confirm)
  64. )
  65.  
  66. (copylib
  67.     (prompt #copying-fileid)
  68.     (help @copylib-help)
  69.     (source "Libs/FileID.library")
  70.     (dest "LIBS:")
  71.     (confirm)
  72. )
  73.  
  74. (copylib
  75.     (prompt #copying-filevirus)
  76.     (help @copylib-help)
  77.     (source "Libs/filevirus.library")
  78.     (dest "LIBS:")
  79.     (confirm)
  80. )
  81.  
  82. (copylib
  83.     (prompt #copying-reqtools)
  84.     (help @copylib-help)
  85.     (source "Libs/reqtools.library")
  86.     (dest "LIBS:")
  87.     (confirm)
  88. )
  89.  
  90. (copylib
  91.     (prompt #copying-unpack)
  92.     (help @copylib-help)
  93.     (source "Libs/unpack.library")
  94.     (dest "LIBS:")
  95.     (confirm)
  96. )
  97.  
  98. (copylib
  99.     (prompt #copying-xfdlib)
  100.     (help @copylib-help)
  101.     (source "Libs/xfdmaster.library")
  102.     (dest "LIBS:")
  103.     (confirm)
  104. )
  105.  
  106. (copylib
  107.     (prompt #copying-xtruderlib)
  108.     (help @copylib-help)
  109.     (source "Libs/xtruder.library")
  110.     (dest "LIBS:")
  111.     (confirm)
  112. )
  113.  
  114. (set xfdokay
  115.     (makedir "LIBS:xfd"
  116.         (prompt #creating-xfd)
  117.         (help @makedir-help)
  118.         (confirm)
  119.     )
  120. )
  121.  
  122. (if xfdokay
  123.     (copyfiles
  124.         (prompt #copying-xfdfiles)
  125.         (help @copyfiles-help)
  126.         (source "Libs/xfd")
  127.         (pattern "#?")
  128.         (dest "LIBS:xfd/")
  129.         (confirm)
  130.     )
  131. )
  132.  
  133. ;*** Xtruder executable
  134.  
  135. (set programdir
  136.     (tackon
  137.         (askdir
  138.             (prompt #select-dest)
  139.             (help @askdir-help)
  140.             (default "SYS:")
  141.             (newpath)
  142.         )
  143.         "Xtruder"
  144.     )
  145. )
  146.  
  147. (set @default-dest programdir)
  148.  
  149. (copyfiles
  150.     (prompt #copying-xtruderexe)
  151.     (source "Xtruder")
  152.     (dest programdir)
  153.     (infos)
  154. )
  155.  
  156. ;*** Backup rexx script to Xtruder dir for backup
  157.  
  158. (copyfiles
  159.     (prompt #copying-rexxscript)
  160.     (source "")
  161.     (dest programdir)
  162.     (pattern "Rexx#?")
  163. )
  164.  
  165. ;*** Copy Catalogs to Xtruder dir for backup
  166.  
  167. (copyfiles
  168.     (prompt #copying-catalogs)
  169.     (source "")
  170.     (dest programdir)
  171.     (pattern "Catalogs#?")
  172. )
  173.  
  174. ;*** Copy registration files
  175.  
  176. (copyfiles
  177.     (prompt #copying-regfiles)
  178.     (source "")
  179.     (dest programdir)
  180.     (pattern "Registration#?")
  181. )
  182.  
  183. ;*** Documentation files
  184.  
  185. ; Backup
  186.  
  187. (copyfiles
  188.     (prompt #copying-documentation)
  189.     (source "")
  190.     (dest programdir)
  191.     (pattern "Documentation#?")
  192. )
  193.  
  194. ; Ask if documentation should be installed elsewhere
  195.  
  196. (set tempdocdir
  197.     (tackon
  198.         programdir
  199.         "Documentation"
  200.     )
  201. )
  202.  
  203. (set docdir
  204.     (askdir
  205.         (prompt #select-destguide)
  206.         (help @askdir-help)
  207.         (default tempdocdir)
  208.         (newpath)
  209.     )
  210. )
  211.  
  212. (copyfiles
  213.     (prompt #copying-documentation)
  214.     (source "Documentation/Xtruder.guide")
  215.     (dest docdir)
  216.     (infos)
  217. )
  218.  
  219. ;*** Rexx scripts
  220.  
  221. (set rexxdir
  222.     (tackon
  223.         (askdir
  224.             (prompt #select-destrexx)
  225.             (help @askdir-help)
  226.             (default "REXX:")
  227.             (newpath)
  228.         )
  229.         "Xtruder"
  230.     )
  231. )
  232.  
  233. (copyfiles
  234.     (prompt #copying-rexxscripts)
  235.     (source "Rexx")
  236.     (pattern "#?")
  237.     (dest rexxdir)
  238. )
  239.  
  240. ;*** Install catalog
  241.  
  242. (if (exists "SYS:Locale")
  243. (
  244.     (if (exists "LOCALE:")
  245.     (
  246.         (set lang (askoptions (prompt #select-language)
  247.                                 (help #which-language-help)
  248.                                 (choices
  249.                                     "Dansk"
  250.                                     "Deutsch"
  251.                                     "Français"
  252.                                     "Italiano"
  253.                                     "Nederlands"
  254.                                     "Norsk"
  255.                                     "Suomi"
  256.                                     "Svenska"
  257.                                     "English")
  258.                                 (default default_lang)
  259.                     )
  260.         )
  261.         
  262.         (set n 0)
  263.         (while
  264.             (set language (select n
  265.                                 "dansk"
  266.                                 "deutsch"
  267.                                 "français"
  268.                                 "italiano"
  269.                                 "nederlands"
  270.                                 "norsk"
  271.                                 "suomi"
  272.                                 "svenska"
  273.                                 "")
  274.             )
  275.         (
  276.             (if (IN lang n)
  277.             (
  278.                 (if (< n 9)
  279.                 (
  280.                     (makedir (cat "LOCALE:Catalogs/" language))
  281.                     
  282.                     (copyfiles (source (cat "Catalogs/" language))
  283.                         (dest (cat "LOCALE:Catalogs/" language))
  284.                         (all)
  285.                     )
  286.                 ))
  287.             ))
  288.             (set n (+ n 1))
  289.         ))
  290.     ))
  291. ))
  292.  
  293. (exit "Please reboot! Some older versions of the installed files might be present in memory."
  294. )
  295.